home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ IE URLs 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.7 KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="URLs Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.42"
  8. "TEXT 1"="Search Page"
  9. "TEXT 2"="Toolbar Search"
  10. "TEXT 3"="Add Radio Station"
  11. "DESCRIPTION 1"="With the URL for "Page" you can change the URL that will be opened if you select "Start"|"Search"|"The web" or click "Go to"|"Seach page" inside Internet Explorer (default is http://www.microsoft.com/isapi/redir.dll?prd=ie&ar=iesearch)."
  12. "DESCRIPTION 2"="With the URL for "Toolbar" you can change the URL that will be opened if you click the Search Button on the toolbar of Internet Explorer."
  13. "DESCRIPTION 3"="With the URL for "Add Radio Station" you can change the URL that will be displayed if you click the "Radio station Guide" button on the "Radio" toolbar (default is http://windowsmedia.com/mediaguide/default.asp)."
  14. "DESCRIPTION 4"="For all entries, you can either select a local HTML file or enter an URL directly, like http://www.hotbot.com."
  15. "DESCRIPTION 5"="NOTE: To have the default URLs restore, clear the fields."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to Roxarius [mailto:rosarius@tin.it] for the HKCU bug notice!"
  21.  
  22.  
  23. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Search Bar"
  24.  
  25. sP3="HKLM\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\"
  26. sV3="DefaultURLFindNewStations" 'string - "http://webevents.microsoft.com/radiobar.asp"
  27.  
  28. Sub Plugin_Initialize 
  29.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  30.   s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  31.   SetUIElement 1,s
  32.  
  33.   s=RegReadValue(sV2)
  34.   SetUIElement 2,s
  35.  
  36.   s=RegReadValue(SP3 & sV3)
  37.   SetUIElement 3,s
  38.  else
  39.   Disable
  40.  end if
  41. End Sub
  42.  
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47.  
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  s=GetUIElement(1)
  51.  if len(s)>0 then
  52.     Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page",s,1)
  53.  else
  54.     s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  55.     if IsEmpty(s)=false then Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  56.  end if
  57.  
  58.  
  59.  s=GetUIElement(2)
  60.  if len(s)>0 then
  61.     Call RegWriteValue(sV2,s,1)
  62.  else
  63.     s=RegReadValue(sV2)
  64.     if IsEmpty(s)=false then 
  65.        Call RegDeleteValue(sV2)
  66.     end if 
  67.  end if
  68.  
  69.  
  70.  s=GetUIElement(3)
  71.  if len(s)>0 then
  72.     Call RegWriteValue(sP3 & sV3,s,1)
  73.  else
  74.     s=RegReadValue(sP3 & sV3)
  75.     if IsEmpty(s)=false then Call RegDeleteValue(sP3 & sV3)
  76.  end if
  77.  
  78.  Call Logoff()
  79. End Sub
  80.  
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.